(face-bold-p): Don't return t if face has lighter

weight than normal.

diff --git a/lisp/faces.el b/lisp/faces.el
index 22fdc20855d590b7a4c600e6c775570cca1c48f4..2fef37d49b83a5d868821f4744c513efad822768 100644 (file)
--- a/lisp/faces.el
+++ b/lisp/faces.el
@@ -370,7 +370,7 @@ If FRAME is t, report on the defaults for face FACE (for new frames).
 If FRAME is omitted or nil, use the selected frame.
 Use `face-attribute' for finer control."
   (let ((bold (face-attribute face :weight frame)))
-    (not (memq bold '(normal unspecified)))))
+    (memq bold '(semi-bold bold extra-bold ultra-bold))))
 
 
 (defun face-italic-p (face &optional frame)